From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Jul 1993 22:09:41 +0000 (+0000)
Subject: (Fwhile): If mocklisp, test for nonzeroness.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94893
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e3c24a741ec1705f3d53489737c653fd245b2370;p=emacs.git

(Fwhile): If mocklisp, test for nonzeroness.
---

diff --git a/src/eval.c b/src/eval.c
index 897e543adf4..7a3a923e0da 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -746,7 +746,8 @@ until TEST returns nil.")
 
   test = Fcar (args);
   body = Fcdr (args);
-  while (tem = Feval (test), !NILP (tem))
+  while (tem = Feval (test),
+	 (!EQ (Vmocklisp_arguments, Qt) ? XINT (tem) : !NILP (tem)))
     {
       QUIT;
       Fprogn (body);